/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Add-Ons / Frontier / Edit File Version 1.0 / Edit File Version / Edit File Version.rsrc / scpt_128

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 cc 00 02 00 00 | 01 86 00 00 06 d5 00 00 |........|........|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 06 54 00 00 a6 15 | ab e0 af 71 4b 8c 00 00 |...T....|...qK...|
|00000050| 00 5c 00 00 00 a5 00 80 | 01 2c 01 f1 4c 41 4e 44 |.\......|.,..LAND|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 43 6f 70 79 |........|....Copy|
|00000080| 72 69 67 68 74 20 a9 20 | 31 39 39 34 2d 39 37 20 |right . |1994-97 |
|00000090| 53 6b 79 54 6f 75 63 68 | 20 43 6f 6d 6d 75 6e 69 |SkyTouch| Communi|
|000000a0| 63 61 74 69 6f 6e 73 20 | d1 20 41 6c 6c 20 72 69 |cations |. All ri|
|000000b0| 67 68 74 73 20 72 65 73 | 65 72 76 65 64 2e 0d 09 |ghts res|erved...|
|000000c0| 68 74 74 70 3a 2f 2f 77 | 77 77 2e 73 6b 79 74 6f |http://w|ww.skyto|
|000000d0| 75 63 68 2e 63 6f 6d 2f | 6d 61 63 2f 73 6f 66 74 |uch.com/|mac/soft|
|000000e0| 2f 66 72 6f 6e 74 69 65 | 72 2e 68 74 6d 6c 0d 09 |/frontie|r.html..|
|000000f0| 57 72 69 74 74 65 6e 20 | 62 79 20 45 72 69 6b 20 |Written |by Erik |
|00000100| 43 2e 20 54 68 61 75 76 | 69 6e 0d 09 09 65 72 69 |C. Thauv|in...eri|
|00000110| 6b 40 73 6b 79 74 6f 75 | 63 68 2e 63 6f 6d 0d 6c |k@skytou|ch.com.l|
|00000120| 6f 63 61 6c 0d 09 70 61 | 74 68 20 3d 20 73 79 73 |ocal..pa|th = sys|
|00000130| 74 65 6d 2e 64 72 6f 70 | 6c 65 74 2e 70 61 74 68 |tem.drop|let.path|
|00000140| 0d 09 73 68 6f 72 74 56 | 65 72 73 69 6f 6e 2c 6c |..shortV|ersion,l|
|00000150| 6f 6e 67 56 65 72 73 69 | 6f 6e 2c 73 0d 69 66 20 |ongVersi|on,s.if |
|00000160| 73 79 73 74 65 6d 2e 64 | 72 6f 70 6c 65 74 2e 73 |system.d|roplet.s|
|00000170| 74 61 72 74 75 70 0d 09 | 6c 6f 63 61 6c 28 64 6c |tartup..|local(dl|
|00000180| 6f 67 2c 64 69 74 6c 29 | 0d 09 6c 6f 63 61 6c 28 |og,ditl)|..local(|
|00000190| 72 6f 6f 74 50 61 74 68 | 20 3d 20 46 72 6f 6e 74 |rootPath| = Front|
|000001a0| 69 65 72 2e 67 65 74 46 | 69 6c 65 50 61 74 68 28 |ier.getF|ilePath(|
|000001b0| 29 29 0d 09 6c 6f 63 61 | 6c 28 61 70 70 50 61 74 |))..loca|l(appPat|
|000001c0| 68 20 3d 20 73 79 73 74 | 65 6d 2e 64 72 6f 70 6c |h = syst|em.dropl|
|000001d0| 65 74 2e 61 70 70 50 61 | 74 68 29 0d 09 72 65 7a |et.appPa|th)..rez|
|000001e0| 2e 67 65 74 52 65 73 6f | 75 72 63 65 28 61 70 70 |.getReso|urce(app|
|000001f0| 50 61 74 68 2c 27 44 4c | 4f 47 27 2c 32 35 30 30 |Path,'DL|OG',2500|
|00000200| 30 2c 40 64 6c 6f 67 29 | 0d 09 72 65 7a 2e 70 75 |0,@dlog)|..rez.pu|
|00000210| 74 52 65 73 6f 75 72 63 | 65 28 72 6f 6f 74 50 61 |tResourc|e(rootPa|
|00000220| 74 68 2c 27 44 4c 4f 47 | 27 2c 32 35 30 30 30 2c |th,'DLOG|',25000,|
|00000230| 40 64 6c 6f 67 29 0d 09 | 72 65 7a 2e 67 65 74 52 |@dlog)..|rez.getR|
|00000240| 65 73 6f 75 72 63 65 28 | 61 70 70 50 61 74 68 2c |esource(|appPath,|
|00000250| 27 44 49 54 4c 27 2c 32 | 35 30 30 30 2c 40 64 69 |'DITL',2|5000,@di|
|00000260| 74 6c 29 0d 09 72 65 7a | 2e 70 75 74 52 65 73 6f |tl)..rez|.putReso|
|00000270| 75 72 63 65 28 72 6f 6f | 74 50 61 74 68 2c 27 44 |urce(roo|tPath,'D|
|00000280| 49 54 4c 27 2c 32 35 30 | 30 30 2c 40 64 69 74 6c |ITL',250|00,@ditl|
|00000290| 29 0d 69 66 20 73 79 73 | 74 65 6d 2e 64 72 6f 70 |).if sys|tem.drop|
|000002a0| 6c 65 74 2e 63 6c 6f 73 | 65 64 6f 77 6e 0d 09 46 |let.clos|edown..F|
|000002b0| 69 6e 64 65 72 2e 62 72 | 69 6e 67 54 6f 46 72 6f |inder.br|ingToFro|
|000002c0| 6e 74 28 29 0d 09 72 65 | 74 75 72 6e 28 74 72 75 |nt()..re|turn(tru|
|000002d0| 65 29 0d 6f 6e 20 69 74 | 65 6d 68 69 74 20 28 69 |e).on it|emhit (i|
|000002e0| 74 65 6d 29 0d 09 63 61 | 73 65 20 69 74 65 6d 0d |tem)..ca|se item.|
|000002f0| 09 09 2d 31 0d 09 09 09 | 64 69 61 6c 6f 67 2e 73 |..-1....|dialog.s|
|00000300| 65 74 56 61 6c 75 65 28 | 33 2c 20 22 54 61 72 67 |etValue(|3, "Targ|
|00000310| 65 74 3a 20 d2 22 20 2b | 20 66 69 6c 65 2e 66 69 |et: ." +| file.fi|
|00000320| 6c 65 46 72 6f 6d 50 61 | 74 68 28 50 61 74 68 29 |leFromPa|th(Path)|
|00000330| 20 2b 20 22 d3 22 29 0d | 09 09 09 73 68 6f 72 74 | + ".").|...short|
|00000340| 56 65 72 73 69 6f 6e 20 | 3d 20 66 69 6c 65 2e 67 |Version |= file.g|
|00000350| 65 74 56 65 72 73 69 6f | 6e 20 28 70 61 74 68 29 |etVersio|n (path)|
|00000360| 0d 09 09 09 6c 6f 6e 67 | 56 65 72 73 69 6f 6e 20 |....long|Version |
|00000370| 3d 20 66 69 6c 65 2e 67 | 65 74 46 75 6c 6c 56 65 |= file.g|etFullVe|
|00000380| 72 73 69 6f 6e 28 70 61 | 74 68 29 0d 09 09 09 69 |rsion(pa|th)....i|
|00000390| 66 20 6e 6f 74 20 73 68 | 6f 72 74 56 65 72 73 69 |f not sh|ortVersi|
|000003a0| 6f 6e 20 3e 20 30 20 0d | 09 09 09 09 73 68 6f 72 |on > 0 .|....shor|
|000003b0| 74 56 65 72 73 69 6f 6e | 20 3d 20 22 6e 2f 61 22 |tVersion| = "n/a"|
|000003c0| 0d 09 09 09 69 66 20 6e | 6f 74 20 6c 6f 6e 67 56 |....if n|ot longV|
|000003d0| 65 72 73 69 6f 6e 20 3e | 20 30 0d 09 09 09 09 6c |ersion >| 0.....l|
|000003e0| 6f 6e 67 56 65 72 73 69 | 6f 6e 20 3d 20 22 6e 2f |ongVersi|on = "n/|
|000003f0| 61 22 0d 09 09 09 64 69 | 61 6c 6f 67 2e 73 65 74 |a"....di|alog.set|
|00000400| 56 61 6c 75 65 28 34 2c | 73 68 6f 72 74 56 65 72 |Value(4,|shortVer|
|00000410| 73 69 6f 6e 29 0d 09 09 | 09 64 69 61 6c 6f 67 2e |sion)...|.dialog.|
|00000420| 73 65 74 56 61 6c 75 65 | 28 35 2c 6c 6f 6e 67 56 |setValue|(5,longV|
|00000430| 65 72 73 69 6f 6e 29 0d | 09 09 09 72 65 74 75 72 |ersion).|...retur|
|00000440| 6e 20 28 74 72 75 65 29 | 0d 09 09 31 0d 09 09 09 |n (true)|...1....|
|00000450| 69 66 20 28 64 69 61 6c | 6f 67 2e 67 65 74 56 61 |if (dial|og.getVa|
|00000460| 6c 75 65 28 36 29 20 3d | 3d 20 74 72 75 65 29 0d |lue(6) =|= true).|
|00000470| 09 09 09 09 72 65 7a 2e | 64 65 6c 65 74 65 52 65 |....rez.|deleteRe|
|00000480| 73 6f 75 72 63 65 28 70 | 61 74 68 2c 27 76 65 72 |source(p|ath,'ver|
|00000490| 73 27 2c 31 29 0d 09 09 | 09 65 6c 73 65 0d 09 09 |s',1)...|.else...|
|000004a0| 09 09 73 20 3d 20 64 69 | 61 6c 6f 67 2e 67 65 74 |..s = di|alog.get|
|000004b0| 56 61 6c 75 65 28 34 29 | 0d 09 09 09 09 69 66 20 |Value(4)|.....if |
|000004c0| 28 73 20 ad 20 22 6e 2f | 61 22 29 20 41 4e 44 20 |(s . "n/|a") AND |
|000004d0| 28 73 20 ad 20 73 68 6f | 72 74 56 65 72 73 69 6f |(s . sho|rtVersio|
|000004e0| 6e 29 0d 09 09 09 09 09 | 66 69 6c 65 2e 73 65 74 |n)......|file.set|
|000004f0| 56 65 72 73 69 6f 6e 28 | 70 61 74 68 2c 73 29 0d |Version(|path,s).|
|00000500| 09 09 09 09 73 20 3d 20 | 64 69 61 6c 6f 67 2e 67 |....s = |dialog.g|
|00000510| 65 74 56 61 6c 75 65 28 | 35 29 0d 09 09 09 09 69 |etValue(|5).....i|
|00000520| 66 20 28 73 20 ad 20 22 | 6e 2f 61 22 29 20 41 4e |f (s . "|n/a") AN|
|00000530| 44 20 28 73 20 ad 20 6c | 6f 6e 67 56 65 72 73 69 |D (s . l|ongVersi|
|00000540| 6f 6e 29 0d 09 09 09 09 | 09 66 69 6c 65 2e 73 65 |on).....|.file.se|
|00000550| 74 46 75 6c 6c 56 65 72 | 73 69 6f 6e 28 70 61 74 |tFullVer|sion(pat|
|00000560| 68 2c 73 29 0d 09 09 09 | 72 65 74 75 72 6e 20 28 |h,s)....|return (|
|00000570| 66 61 6c 73 65 29 0d 09 | 09 32 0d 09 09 09 72 65 |false)..|.2....re|
|00000580| 74 75 72 6e 20 28 66 61 | 6c 73 65 29 0d 09 09 36 |turn (fa|lse)...6|
|00000590| 0d 09 09 09 69 66 20 28 | 64 69 61 6c 6f 67 2e 67 |....if (|dialog.g|
|000005a0| 65 74 56 61 6c 75 65 28 | 36 29 20 3d 3d 20 66 61 |etValue(|6) == fa|
|000005b0| 6c 73 65 29 0d 09 09 09 | 09 64 69 61 6c 6f 67 2e |lse)....|.dialog.|
|000005c0| 73 65 74 56 61 6c 75 65 | 28 36 2c 74 72 75 65 29 |setValue|(6,true)|
|000005d0| 0d 09 09 09 09 64 69 61 | 6c 6f 67 2e 68 69 64 65 |.....dia|log.hide|
|000005e0| 49 74 65 6d 28 34 29 0d | 09 09 09 09 64 69 61 6c |Item(4).|....dial|
|000005f0| 6f 67 2e 68 69 64 65 49 | 74 65 6d 28 35 29 0d 09 |og.hideI|tem(5)..|
|00000600| 09 09 09 64 69 61 6c 6f | 67 2e 68 69 64 65 49 74 |...dialo|g.hideIt|
|00000610| 65 6d 28 37 29 0d 09 09 | 09 09 64 69 61 6c 6f 67 |em(7)...|..dialog|
|00000620| 2e 68 69 64 65 49 74 65 | 6d 28 38 29 0d 09 09 09 |.hideIte|m(8)....|
|00000630| 65 6c 73 65 0d 09 09 09 | 09 64 69 61 6c 6f 67 2e |else....|.dialog.|
|00000640| 73 65 74 56 61 6c 75 65 | 28 36 2c 66 61 6c 73 65 |setValue|(6,false|
|00000650| 29 0d 09 09 09 09 64 69 | 61 6c 6f 67 2e 73 68 6f |).....di|alog.sho|
|00000660| 77 49 74 65 6d 28 34 29 | 0d 09 09 09 09 64 69 61 |wItem(4)|.....dia|
|00000670| 6c 6f 67 2e 73 68 6f 77 | 49 74 65 6d 28 35 29 0d |log.show|Item(5).|
|00000680| 09 09 09 09 64 69 61 6c | 6f 67 2e 73 68 6f 77 49 |....dial|og.showI|
|00000690| 74 65 6d 28 37 29 0d 09 | 09 09 09 64 69 61 6c 6f |tem(7)..|...dialo|
|000006a0| 67 2e 73 68 6f 77 49 74 | 65 6d 28 38 29 0d 09 09 |g.showIt|em(8)...|
|000006b0| 09 72 65 74 75 72 6e 28 | 74 72 75 65 29 0d 09 65 |.return(|true)..e|
|000006c0| 6c 73 65 0d 09 09 72 65 | 74 75 72 6e 20 28 74 72 |lse...re|turn (tr|
|000006d0| 75 65 29 0d 69 66 20 66 | 69 6c 65 2e 65 78 69 73 |ue).if f|ile.exis|
|000006e0| 74 73 28 70 61 74 68 29 | 0d 09 69 66 20 6e 6f 74 |ts(path)|..if not|
|000006f0| 20 66 69 6c 65 2e 69 73 | 56 6f 6c 75 6d 65 28 70 | file.is|Volume(p|
|00000700| 61 74 68 29 0d 09 09 69 | 66 20 6e 6f 74 20 66 69 |ath)...i|f not fi|
|00000710| 6c 65 2e 69 73 46 6f 6c | 64 65 72 28 70 61 74 68 |le.isFol|der(path|
|00000720| 29 0d 09 09 09 64 69 61 | 6c 6f 67 2e 72 75 6e 20 |)....dia|log.run |
|00000730| 28 32 35 30 30 30 2c 31 | 2c 40 69 74 65 6d 68 69 |(25000,1|,@itemhi|
|00000740| 74 29 0d 09 72 65 74 75 | 72 6e 28 74 72 75 65 29 |t)..retu|rn(true)|
|00000750| 0d 84 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 80 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+